home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / t3script.arc / PCBOARD.SLT < prev    next >
Text File  |  1990-04-14  |  4KB  |  100 lines
  1. /////////////////////////////////////////////////////////////////////////
  2. //          PCBOARD.SLT  -  by Terry Robertson (October 1988)          //
  3. // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
  4. //                                                                     //
  5. //    SCRIPT TO LOG-ON TO A PCBOARD SYSTEM.                            //
  6. //                                                                     //
  7. //    Please note that this script expects you to have assigned your   //
  8. //    FULL NAME to function key F4. The easiest way to do this is by   //
  9. //    using the FKEY script in this collection.                        //
  10. //                                                                     //
  11. //    In addition, the script is written so that it will abort if you  //
  12. //    have not completed the relevant PASSWORD entry in the Dialling   //
  13. //    Directory.                                                       //
  14. //                                                                     //
  15. //    I have assumed that you want to use the linked scripts CONNECT   //
  16. //    and CAPTURE. If you do not have these or prefer not to use       //
  17. //    them you should "comment out" the two lines starting "call"      //
  18. //    by simply putting "//" before the word "call".                   //
  19. //                                                                     //
  20. //    TELIX supports ANSI graphics and I have assumed that you wish    //
  21. //    to take advantage of this feature. If not you should change "y"  //
  22. //    to "n" in the section below dealing with graphics.               //
  23. //                                                                     //
  24. /////////////////////////////////////////////////////////////////////////
  25.  
  26.  
  27. str s[30];
  28.  
  29.  
  30.  
  31. main()
  32.  
  33. {
  34.  
  35.  int stat;
  36.  int t1,
  37.      t2,
  38.      t3,
  39.      t4;
  40.  int tmark;
  41.  
  42.  alarm (1);
  43.  call("connect", 1);                    // Gives "connect" information by
  44.                                         // calling Connect.slc script
  45.  call("capture", 1);                    // Opens new capture file by calling
  46.                                         // Capture.slc script
  47.  
  48.  if (not _entry_pass)                   // no pass, so didn't recog. board
  49.   {
  50.    prints ("Sorry, I don't know the password for this BBS!");
  51.    return;
  52.   }
  53.  
  54.  t1 = track (" graphics", 1);
  55.  t2 = track ("first name?", 1);
  56.  t3 = track ("Password", 1);
  57.  t4 = track ("Language # to use", 1);
  58.  
  59.  tmark = timer_start (1800);            // wait up to 3 minutes for login
  60.  
  61.                                         // answer any logon questions
  62.  while (not time_up (tmark))
  63.   {
  64.    terminal();                          // let Telix process any chars and keys
  65.  
  66.    stat = track_hit (0);                // see which (if any) track was hit
  67.  
  68.    if (stat == t1)                      // Do you want graphics?
  69.     {
  70.      delay (5);
  71.      cputs ("y");                       // send affirmative
  72.      cputs ("^M");
  73.     }
  74.    else if (stat == t2)                 
  75.     {
  76.      keyget(0x3e00, 0, s);
  77.      delchrs(s, strlen(s) - 2, strlen(s));
  78.      cputs(s);
  79.      cputs ("^M");
  80.     }
  81.    else if (stat == t3)                 
  82.     {
  83.      cputs (_entry_pass);               // send password
  84.      cputs ("^M");
  85.      break;                             // done with logon
  86.     }
  87.    else if (stat == t4)
  88.    {
  89.      cputs ("^M");
  90.     }
  91.   }
  92.  
  93.  if (time_up (tmark))
  94.  prints ("Logon failed!");
  95.  
  96.  timer_free (tmark);                    // free timer channel
  97.  track_free (0);                        // and all track channels
  98.                
  99. }              
  100.